home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / audio_in.sda / VOL CONTROL < prev   
Text File  |  2009-10-10  |  3KB  |  110 lines
  1.  
  2.  
  3.         ╓OLUME ├ONTROL                                            ╨AGE 1
  4.  
  5.  
  6.         ╨ETE'S ─ESK
  7.         
  8.         ┬ACK IN THE HEAT OF LAST SUMMER, ╥ICK AND ╔ PLAYED A FAST ONE ON
  9.         THE CLUB. ┴FTER READING ╘HE ┬IG ╘IP ┬OOK FROM ╘HE ┬EAGLE
  10.         ┬ROTHERS, ╔ LEARNED THAT ONE COULD INPUT MUSIC INTO THE COMPUTER
  11.         AND THEN CONTROL THE VOLUME FROM THE KEYBOARD. ╫ELL, WHEN ╔ TOLD
  12.         ╥ICK ABOUT THIS OUR MINDS WENT INTO OVERDRIVE. ╠OOK FOR ╥ICK'S
  13.         ARTICLE ON HOW TO CONVERT YOUR TAPE DRIVE TO PLAY MUSIC OR RUN
  14.         YOUR DATA.
  15.         
  16.         ╘HE FOLLOWING PROGRAM ╔ WROTE TO COMPLETE THE ILLUSION. ╔T IS
  17.         WRITTEN FOR THE ├-128, BUT THE BASIC COMMANDS ARE THE SAME FOR
  18.         THE ├-64. ╔F YOU USE THIS VERSION, YOU'LL HAVE TO CREATE A ╦NOB
  19.         IN THE ╙╨╥─┼╞ MODE (SPRITE) FOR THE PROGRAM. ╘HE SOURCE ╔ USED
  20.         FOR THE INFORMATION ON THE─ATA╙ETTE WAS THE ┴BACUS -╘RICKS &
  21.         ╘IPS BOOK. ╔F DON'T HAVE ONE, BY ALL MEANS TRY TO FIND ONE AND
  22.         BUY IT, IT HAS GREAT INFO. ON 128. ╘O ALL THOSE WE FOOLED, ╔'M
  23.         SORRY ( WELL, MAYBE A LITTLE ).
  24.         
  25.         ╔F YOU ARE NOT SURE ON HOW TO USE THE SPRDEF MODE ON THE 128,
  26.         SEE ME AT THE NEXT MEETING AND ╔'LL GLADLY SHOW YOU HOW TO USE
  27.         IT.
  28.         
  29.         10 COLOR0,1:COLOR4,1:COLOR1,8:GRAPHIC1,1
  30.         
  31.         11 POKE192,1:POKE1,PEEK(1)OR32
  32.         
  33.         15 BLOAD'KNOB
  34.         
  35.         20 BOX1,30,30,280,150
  36.         
  37.         25 CHAR1,18,5,'0...15'
  38.         
  39.         26 CHAR1,2,0,'PRESS < S > TO STOP & < R > TO RUN'
  40.         
  41.         30 BOX1,65,60,250,110,,1
  42.         
  43.         40 BOX1,60,50,255,130
  44.         
  45.         50 CHAR1,9,8,'COMMODORE WALKMAN BY',1
  46.         
  47.         60 CHAR1,9,10,' PETER NADAL & ',1
  48.         
  49.         70 CHAR1,9,12,' RICK ─IXON',1
  50.         
  51.         80 BOX1,40,25,60,30,,1
  52.         
  53.         85 BOX1,70,25,90,30,,1
  54.         
  55.         90 REMBOX1,150,25,160,30,,1
  56.         
  57.         91 SPRITE8,1,8,0,1,1,0:MOVSPR8,150,70
  58.         
  59.         95 BOX1,190,25,210,30,,1 
  60.         
  61.         98 BOX1,220,25,240,30,,1
  62.         
  63.         99 BOX1,250,25,270,30,,1
  64.  
  65.  
  66.  
  67.  
  68.  
  69.             ╓OLUME ├ONTROL                                            ╨AGE 2
  70.  
  71.  
  72.         
  73.         100 BOX1,280,120,300,130,,1
  74.         
  75.         101 FOR Y=130TO190STEP5:CIRCLE1,300,Y,5,5:NEXT Y
  76.         
  77.         102 BOX1,290,190,310,210,,1
  78.         
  79.         110 TI$='000000'
  80.         
  81.         114 DO
  82.         
  83.         115 B=150:V=0
  84.         
  85.         116 IF PEEK(213)=17 THEN POKE1,PEEK(1) AND 39:
  86.             POKE192,0:COLOR1,6:CHAR1,4,5,' ',1:COLOR1,8
  87.         
  88.         
  89.         117 IF PEEK(213)=13 THEN POKE192,1:POKE1,( PEEK(1)OR32):
  90.             COLOR1,3:CHAR1,4,5,' ',1:GOSUB300
  91.         
  92.         
  93.         119 B=150:V=1
  94.         
  95.         120 IF PEEK(213)=85 THEN MOVSPR8,B,70:POKE54296,V
  96.         
  97.         130 IF PEEK(213)=86 THEN B=B+1:
  98.             MOVSPR8,B,70:V=V+.5:POKE54296,V:GOTO130
  99.         
  100.         135 CHAR1,8,17,'COUNTER < ',1: CHAR1,18,17,TI$,1:CHAR1,24,17,' >',1
  101.         
  102.         140 LOOP
  103.         
  104.         300 IF PEEK(213)=13 THEN 310
  105.         
  106.         310 GETKEY A$:IF A$='R' THEN 320:ELSE310
  107.         
  108.         320 RETURN
  109.          
  110.